home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)ta.d64 / printing.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  46 lines
  1. 5 POKE 53280,11:POKE 53281,0:POKE 53272,20
  2. 7 PRINT""
  3. 9 PRINTTAB(11):PRINT"[156] LETTER WRITING 64 "
  4. 11 PRINT""
  5. 13 PRINT"[159]                     [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  6. 15 PRINT"[158]                      AN[170][205][206][180][213][201]
  7. 17 [153]"                        +  SGNMID$TAN PROGRAM
  8. 19 PRINT"[159]                     [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  9. 20 FOR N=1TO3000:NEXT N
  10. 30 PRINT"[147][158]":POKE 53272,22
  11. 40 PRINT"[158][212]HIS LITTLE PROGRAM WILL ALLOW YOU TO
  12. 50 [153]"USE THE 64 KEYBOARD FOR TYPING LETTERS
  13. 60 PRINT"AND PRINTING THEM ON THE 1525 PRINTER.
  14. 70 [153]"PRINT       (null)LEFT$RIGHT$(null)CHR$(null)CLOSE(null)(null)(null)CLOSE(null)(null)(null)(null)CLOSE(null)VAL(null)VAL(null)PEEKVAL(null)         "
  15. 80 [153]"PRINT   1. (null)YPE NO MORE THAN TWO SCREEN LINES
  16. 90 PRINT"[145](ONE PRINTER LINE) BEFORE PRINTING.
  17. 100 [153]"(null)RINT BY PRESSING THE (null)VAL(null)(null)(null)(null) KEY.
  18. 110 PRINT"[159]   2. [217]OU CAN'T USE COMMAS, COLONS OR
  19. 120 [153]"SEMICOLONS IN YOUR COPY.  RIGHT$F YOU DO,
  20. 130 PRINT"THE COMPUTER WILL DROP EVERYTHING AFTER
  21. 140 [153]"THE PUNCTUATION AND GIVE YOU AN VAL(null)(null)(null)ATN
  22. 150 PRINT"[201][199][206][207][210][197][196] ERROR.
  23. 160 [153]"CONT   3. ATNFTER EACH PRINTING YOU MUST PRESS"
  24. 170 [153]"ONRETURN THE SECOND TIME TO CONTINUE,
  25. 180 PRINT"THE CURSOR DOWN KEY FOR A LINE SPACING
  26. 190 [153]"OF ONE OR THE CURSOR RIGHT KEY FOR A
  27. 200 PRINT"SPACING OF TWO LINES.
  28. 210 [153]"(null)RESS A DOUBLE ASTERISK TO END THE PRO-
  29. 220 PRINT"GRAM. [158] [208]RESS ANY KEY TO CONTINUE.
  30. 260 [161] A$:[139] A$[178]"" [167] 260
  31. 270 [153]"LOADCONT PEEKVALCHR$RIGHT$(null)CLOSE(null)(null)(null)(null)CLOSE(null)VAL(null)(null)VAL(null) WAIT"
  32. 275 [153]""
  33. 280 [159] 1,4,7
  34. 285 [153][163]5);:[133] A$
  35. 286 [139] A$[178]"**"[167] [160] 1,4,7:[128]
  36. 290 [152]1,[199](16)"05";:[152]1,A$
  37. 310 [161] B$:[139] B$[178]""[167] 310
  38. 320 [139] B$[178][199](13)[167] 285
  39. 325 [139] B$[178]""[167] [152]1,:[137] 285
  40. 330 [139] B$[178]""[167] [152]1,:[152]1,:[137] 285
  41. 360 [143]: TO CHANGE THE LEFT HAND MARGINE, CHANGE THE TAB( ) IN LINE 285 AND THE
  42. 370 [143]: NUMBER IN QUOTES IN LINE 290.
  43. 380 [143]: TO SET THE RIGHT MARGIN, SPACE EACH NEW LINE THE NUMBER OF SPACES YOU
  44. 390 [143]: WANT TO LEAVE BLANK.  THE COMPUTER WILL NOT INDENT THE LINE BUT WILL
  45. 400 [143]: LEAVE THAT NUMBER OF SPACES BLANK ON THE RIGHT MARGIN.
  46.